Top 10k strings from Astronomer II (1985)(CP Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
8 GGGGGGGGGG
6 t$=t$+(" "
4 y+" "+(" "
4 x+" "+(" "
4 '"Type new value ";:
3 dat=dat+int:
3 astronomer
2 x=tt*tt+r*
2 x=q(i,w)-w+q(i,
2 x;"h ";y;"m ";z;"s GMT"
2 t$=t$+("+"
2 o,o;"Please enter hours":
2 o$(opt,w+w
2 m+"-"+(" "
2 i$=" "+(" "
2 dat=mjd+tim/
2 d+"-"+(" "
2 *"m";w;i$+"b"
2 *"m";w;i$+"a"
2 (lp-c(opt))*
2 "100",w+w+i:
2 ";y;"' ";z;"""":
1 yl=m*lx+c:
1 yl=l1+(l2-l1)*(y2>y1):
1 y=tt-w+al*216
1 y=q(i,w+w)+q(i,
1 xl=l3+(l4-l3)*(x2>x1):
1 xl=(ly-c)/m:
1 x=x-(i$="5")+(i$="8")+24
1 x=w;"below"
1 x=w;"SOUTH"
1 x=tt*tt-r*
1 x;"h ";y;"m ";z;"s"
1 w;xl-x1,yl-y1
1 w;x2-x1,y2-y1:
1 w;"START THE TAPE"
1 w;"STAR ATLAS";:
1 w;"Please press a key correspondingto one of the choices shown. ":
1 w;"Please choose a map from 1 to 5"'
1 w;"PLEASE WAIT WHILST PROGRAM LOADS":
1 w;" POSITION
1 w;" OUTPUT IS GOING TO THE PRINTER "
1 w;" ERROR ";
1 w;" ASTRONOMER ":
1 w,w;"10 AU"
1 w,w+w;"X to exit to the main menu."
1 w,o;"Press P for printer , T for tape";
1 w,o;"Filename ? _":
1 w,o;" Press X to return to main menu"
1 w+w;"Press any key for the main menu"
1 w+w;"Press X to exit to the main menu":
1 w+w;"Press C to copy the page or";
1 w+w;"Please press a key 1-6 to choose"
1 w+w;" ";c$;" NOT RECOGNISED ":
1 w+w,w;"1 AU"
1 w+w,o;"D";
1 w'" Press X to exit to the main "'" menu or R to review the data "
1 v=v(con)*2
1 v=(i$="t"):
1 v-psp)/(mrd*
1 v-.0644*a*
1 v+(.0182*a-.8142)*
1 u=u(con)/(
1 tt+w,o;"18";
1 tt*x,tt*y:
1 t=t+(m>w)*
1 t;" day";"s"
1 sd=d(w)/dis
1 sd=d(opt)/dis:
1 r=r-(r>w):
1 r=a(p)*(w-e(p)*e(p))/(w+e(p)*
1 r=(w-v)*372
1 r=(w-al)*252
1 r=(w+v)*372
1 q(i,w),q(i,w+w),q(i,
1 p=p-(p>w):
1 p=(dat-15019
1 opt=w+w;"?"
1 o;b$;b$;b$:
1 o;" Use the star atlas"
1 o;" Use other routines"
1 o;" NIGHT SKY VIEWS ":
1 o;" Draw night sky views"
1 o;" Change time or location"
1 o;" Calculate positions of the"'" planets, moon or sun"
1 o;" Calculate positions of minor"'" bodies of the Solar System"
1 o;" Select printer"
1 o;" Save or load data"'''
1 o;" Return to the main menu"
1 o;" Find rising & setting times"'''
1 o;" Draw diagrams of the Solar"," System"
1 o,tt+w;"12"
1 o,tt+w;" 0"
1 o,o;"RA (h)24 20 16 12 8 4 0";
1 o,o;"Please enter year":
1 o,o;"Please enter seconds":
1 o,o;"Please enter seconds"
1 o,o;"Please enter month":
1 o,o;"Please enter minutes":
1 o,o;"Please enter minutes"
1 o,o;"Please enter hours"
1 o,o;"Please enter degrees":
1 o,o;"Please enter days"
1 o,o;"Please enter day ":
1 o,o;"Is this acceptable? Press Y or N":
1 o,o;"BAUD RATE:":
1 o,o;" Press X to exit to main menu";b$:
1 o$(opt,w):
1 n$(p+w)="_":
1 n$(p+w)=" ":
1 n$(p)="_":
1 map=x-w-w:
1 map=-w);"0"
1 m=(y2-y1)/(x2-x1):
1 m-w,k;" ";
1 m+3.735004599e-3*
1 ly=l1+(l2-l1)*(y2>y1):
1 lim1=m(m):
1 l=l+d*.0174532925
1 l=c(opt)+z:
1 l2=(v>(p+lat))
1 l2=(v<(-p+lat))
1 l1=(v>(p-lat)):
1 l1=(v<(-p-lat)):
1 l-w,k;" ";
1 l)+(" COMET"
1 l(y)*(m>2)-31":
1 k;"The position of the object must now be entered.":
1 k;"Press P for printer , T for tape";
1 k'"Please press I or O ";
1 k'"Initial date for animation"'',:
1 k'"Enter time interval (in days)"'',
1 j=(i$="l"):
1 int=int+x/
1 i;c$;"_ ":
1 i;"Name of
1 i,k;" ":
1 i$="i";"OUTER"
1 i$="2";"Screen"
1 i$="1";" selected"''"Choose starting date ";:
1 i$+tt*(i$="0")
1 e=e-d/(w-e(p)*
1 dif=x-h(w):
1 dev=w+w+(i$="2"):
1 dat=day-int:
1 dat=day-int
1 dat=dat+m(i):
1 dat=dat+d:
1 dat)*24+.5)":
1 d>m(m)+(m=w+w
1 d=dat-h(opt):
1 d;"-";m;"-";y:
1 d;"-";m;"-";y'':
1 d;"-";m;"-";y'''"Position is";
1 c=y1-m*x1:
1 c;"s ";"GMT"
1 b$=" ":
1 add=add0+tt*l1
1 add=add+tt:
1 a=u*3.819718634
1 a=u(opt)*3.819718634
1 a=nu+w(p):
1 a+b/60+c/3600)*0.01745329252":
1 a$=a$+".0"
1 a$;" on ";d$
1 Created with Ramsoft MakeTZX
1 CALCULATED ":
1 ANDAPSAQRAQLARAARIAURBOOCAMCNCCVNCMACMICAPCARCASCENCEPCETCHACIRCOLCOMCRACRBCRVCRTCRUCYGDELDORDRAERIFORGEMGRUHERHYAHYIINDLACLEOLMILEPLIBLUPLYNLYRMONMUSOCTOPHORIPAVPEGPERPHEPICPSCPSAPUPPYXRETSGESGRSCOSCLSCTSERTAUTELTRITRATUCUMAUMIVELVIRVOLALLMAPEXICOPSUNMOOMERVENMARJUPSATURANEPPLUCERPALJUNVESHALENC
1 ? _ ":
1 ;" PRESS ANY KEY
1 ;" Please enter command _ ":
1 3SUN 4MOON 7MERCURY 5VENUS 4MARS 7JUPITER 6SATURN 6URANUS 7NEPTUNE 5PLUTO 5CERES 6PALLAS 4JUNO 5VESTA 8HALLEY'S7ENCKE'S
1 19-12-89 17 47 13 -23 24 29 1.0
1 +1.0000001)*32753)":
1 +(n$(w)="-"))
1 +(n$(w)="-")
1 *(n$(w)="-"):
1 *(map=-w)-w:
1 *((i$="6")-(i$="7")):
1 )*int/p(q(i,
1 )*dif/p(q(i,
1 )*(dat-h(p))/p(p)+l(p)-w(p):
1 ) & press ENTER"
1 (y*365.25)+
1 (w-y*y/1936
1 (sd*10+.5)";""""
1 (re*re+rp*rp-2
1 (r0*1078+30)":
1 (map/24)":
1 (m2+.1097568*
1 (m2)-3.24282175e-3*
1 (lp-c(opt)):
1 (le-l)/(re-rp*
1 (lam-l))/(re*
1 (l-le))/(rp-re*
1 (h+t)*(mrd*
1 (dis*t+.5)"/t;" AU"'':
1 (dis*dis+t*t):
1 (dis*10+.5)":
1 (dat+.01)":
1 (dat*100+.5)/100":
1 (b+b)+.0856*
1 (add+w))/65536":
1 (add+w))/65536
1 (add+5))/64)"
1 (add+3))/32768-w"
1 (a0*65535+.5)":
1 (a*4.7+.5)":
1 (365.25*p)":
1 (30.6001*g)"
1 (30.6001*(m+1))+d-679006":
1 (2*(l-ls)-m)":
1 (2*(l-ls))":
1 (15+(lat*2/
1 (.5+65535*t/24)":
1 (.001+p))<.001"
1 ((x-w-w)/24
1 ((w+e(p))/(w-e(p))):
1 ((sd-sl*sa)/t):
1 ((p-y)*60+0.5)":
1 ((a-122.1)/365.25)":
1 ((a+532784.75)/36524.25)":
1 '''"At ";x;"h ";y;"m ";z;"s GMT on ";:
1 '''" COMETS:","
1 ''"Setting time is: ";:
1 ''"Rising time is : ";:
1 ''"Object is circumpolar & never sets at this latitude":
1 ''"Object is always below the","horizon & never rises at this latitude":
1 ''"Distance is ";
1 '"Printer"
1 '"Interval is ";x;" day";"s"
1 '"How many entries ? ";
1 '"Current time : ";x;"h ";y;"m ";z;"s GMT":
1 '"Current latitude : ";"+"
1 '"Current date : ";d;"-";m;"-";y:
1 '"Choose interval in days";" & hours"
1 '"At ";x;"h ";y;"m ";z;"s GMT on ";:
1 '"Age since new moon is ";:
1 #dev;"time & date RA declination"'" h d m y h m s
1 #dev;" date RA Dec Dist"'" h m s
1 "y*365.2422+
1 "x-832*((x>430)-(x<-400))":
1 "x-2400*((x>1216)-(x<-1200))":
1 "u*3.81971863":
1 "t*.0657098-b+tim*1.002738":
1 "t*.0657098-b":
1 "r0-2+24*(r0=1)":
1 "r-24*(y-1900)":
1 "p-4715-(m>2.5)":
1 "n-2.792526803e-3*
1 "map/4-.3882212":
1 "m-12*(m>12)":
1 "m+ev-9.700539983e-3*
1 "l-d*1.944368345e-3-6.0978848":
1 "l+ev+.1097567753*
1 "l+1.148950247e-2*
1 "g-w-12*(g>13.5)":
1 "dat/365.2422"
1 "astronomer"
1 "Semi-diameter is ";
1 "Save or load (S or L) ? ";:
1 "SW"," W AZIMUTH NW"
1 "SE"," S AZIMUTH SW"
1 "Position is ";
1 "NW"," N AZIMUTH NE"
1 "NE"," E AZIMUTH SE"
1 "Do you wish to tabulate positionover a range of time, or find position at current date";" & time"
1 "Do you wish to examine the InnerPlanets (Mercury, Venus, Earth &Mars) or the Outer ones (JupiterSaturn, Uranus, Neptune & Pluto)"'
1 "Current longitude : ";"+"
1 "9780+10*(i$=""o"")":
1 "9500-25*ns"
1 "9000+100*opt"
1 "9.9")+a$:
1 "87-10*(i$=""o"")":
1 "8+720*(v-d0)":
1 "8*(con=30)"
1 "77+45*y":
1 "60.086861/(1+.0549*
1 "60-10*v":
1 "60"*(p-x):
1 "6.6460656+s*2400.051262+s*s*2.581e-5":
1 "6";a$;" on ";d$:
1 "6";"Select map (
1 "6";" PLANETS, MOON and SUN "''
1 "6";" ASTEROIDS and COMETS "'
1 "6","7","8","9","10"
1 "6"'"PLEASE WAIT WHILST POSITIONS OF"'"STARS ARE BEING CALCULATED ":
1 "57.29577951":
1 "57.29577951"):
1 "5500-500*(map=-1
1 "54238+2*con":
1 "51960"+i,
1 "51960"+i):
1 "51870",l:
1 "51870"+i,
1 "51870"+i):
1 "51869",v:
1 "51868",j:
1 "5";"Is this acceptable (Y or N) ?"
1 "5",o;"Enter baud rate for a serial","printer, or 0 for a ZX Printer":
1 "5"*q-pp-pp:
1 "5"'"Local sidereal time: ";x;"h ";y;"m ";z;"s"
1 "5"'" ASTEROIDS:","
1 "4.64111846+21.32991139*t":
1 "4.14473024+52.96910393*t":
1 "4";"X to exit or C to copy ":
1 "4";"Press any key to pause,";
1 "4";"Altitude";
1 "4",o;"C":
1 "365.2422":
1 "362";" POLE";
1 "33+2400*r":
1 "32")'''"Tape or microdrive (T or M) ? ";
1 "30.6001"):
1 "3.819719"):
1 "3.81971863":
1 "3.81971863"*u:
1 "3.81971863"*
1 "3.8197186":
1 "3","4","1","5","0"
1 "27";"on";
1 "254"-i,j:
1 "25+832*x":
1 "25";"_ ":
1 "25";" ";
1 "2401524.5":
1 "24-map+24*v":
1 "24";"of 60
1 "24";"above.":
1 "23734",w-w
1 "23659",o:
1 "23610")+w;" HAS OCCURRED ";
1 "23";"above"
1 "23";"Dec. of ";
1 "22";"NORTH"
1 "21";"RA (h) ";
1 "20.5","38.3","53.0","80.8","0"
1 "20";"main menu"''"
1 "20",o;b$:
1 "20",o;"RIGHT ASCENSION";
1 "20",o;"DECLINATION ";
1 "20",o;"+"
1 "2.652035286-9.24219907e-4*d":
1 "19382"+i,
1 "19382"+i):
1 "17";r0-w;
1 "16",w;"Press a key to restart program":
1 "16",tt-w;
1 "15.5-l/2-2.5*(opt>14)":
1 "14";"RA ";:
1 "14";"RA ";
1 "14";"Dec ";"+"
1 "128+45*x",
1 "128","77","128","76","130","77","128","77","143","91"
1 "127","83","128","87","128","86","124","89","0","0"
1 "12",k;"E";
1 "12"*(m=w):
1 "11",w;"E";
1 "100*(1+9*(opt<6))":
1 "10.4","19.1","38.4","60.2","79.6"
1 "1.00485333-h/24":
1 "1-2*(age>
1 ".89884456":
1 ".4093197474-2.2711097e-4*p-2.86042e-8*p*p+8.775128e-9*p*p*p":
1 ".26179939":
1 ".2299715042*d+1.13403578":
1 ".03777778/d":
1 ".0222337493*
1 ".017202791"*dif:
1 "(dat-15019.5)/36525":
1 "(b-15019.5)/36525":
1 "(60*(z-y)+0.5)"
1 "(6-v)/9":
1 "(.3314-.0103*a)*
1 "(.1609*a-.0105)*
1 "'''''''''" 0
1 "'''"A"'"L"'"T"''''"30
1 "''" -90
1 "''" -70
1 "''" -50
1 "'"n"'" -30
1 "'"i"'"o -10
1 "'"i"'"n +30
1 "'"c"'"l +50
1 "'"a"'"t +10
1 "'"D"'"e +70
1 " ";x;" hour";"s"
1 Uranus"'''"
1 Pluto"'''"
1 Pallas"'',"
1 Neptune"'''"
1 Mercury","
1 Juno"'',"
1 Halley's"'',"
1 Exit to the"'," main menu"
1 Exit to the"'
1 Encke's"'''',"
1 Ceres"'',"
1 ";y;"' ";z;""""
1 Tabulate values on screen"''"
1 Tabulate on the printer"''"
1 Single value only"''"
1 Exit to main menu"
1 ' "" AU":
1